home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.'x' drehen (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  828b  |  26 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 b1=32:b2=40
  8. 12 poke53280,0:poke53281,1:poke646,0
  9. 15 sys mem,b2,b1:sys clear
  10. 20 sys mem,b1,b2:sys clear
  11. 25 sys sh,0,0,0,1,0
  12. 30 sys se,100,100:f=1:fl=1:x=24
  13. 35 x1=0:y1=0:x2=30:y2=30
  14. 37 x1=x1+f:x2=x2-f
  15. 40 for i=0tox2
  16. 45 sys cl
  17. 50 sys li,x1,y1,x2,y2,1
  18. 52 sys li,x1,y2,x2,y1,1
  19. 60 h=b1:b1=b2:b2=h
  20. 70 sys mem,b1,b2
  21. 80 x1=x1+1:x2=x2-1:x=x+1
  22. 85 if x>320thenx=24
  23. 87 sys se,x,100
  24. 90 next:fl=-fl:f=f+fl*1
  25. 100 goto35
  26.